home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / os2 / pp001.zip / EX3.PRG < prev    next >
Text File  |  1991-04-11  |  181b  |  16 lines
  1. Program EX3;
  2. var
  3.   a : byte;
  4. begin
  5.   A := 65;
  6.   While (A <= 90) do
  7.   begin
  8.     Write(A);
  9.     Emit(32,32,32,32,A,13,10);
  10.     A := A + 1;
  11.   end;
  12.   emit(13,10);
  13. end.
  14.  
  15. .
  16.